home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / bio.src < prev    next >
Text File  |  1992-08-18  |  901b  |  23 lines
  1. %%HP: T(3);
  2. @ BIO, a biorythm calculator, by Joe Horn.
  3. @ 243 bytes, CRC = #795Ch.
  4. @ The output from this program is guaranteed to be far more
  5. @ accurate than your body's own chaotic cycles, and is thus
  6. @ more useful for recreational purposes than anything practical.
  7. DIR
  8.   BIO @ birthdate -> biorythms
  9.     \<< DUP "BD" \->TAG               @ Birthdate
  10. SWAP DATE DDAYS                       @ Days old
  11. DUP 23 BRY "Physical" \->TAG          @ Physical 23-day cycle
  12. OVER 28 BRY "Emotional" \->TAG        @ Emotional 28-day cycle
  13. ROT 33 BRY "Intellectual" \->TAG      @ Intellectual 33-day cycle
  14.     \>>
  15.   NXT @ -> tomorrow's biorythm
  16.     \<< DROP2 DROP -1 DATE+ BIO       @ one more day old
  17.     \>>
  18.   BRY @ ddays & cycle length -> biorythm
  19.     \<< / FP 0 ACOS 4 * * SIN         @ works in any angle mode
  20. 100 * 0 RND                           @ scale between -100 & +100
  21.     \>>
  22. END
  23.